
00010          .LI ON
00020 ------------------------------
00030 ; TURBO-BASIC TEIL 11
00040 ------------------------------
00050          .LI OFF
00060 ------------------------------
00070 **  ATARI-BASIC BEFEHLSSATZ **
00080 BEF_LIS  .DA #$95,"RE"
00090          .DA #$95,"DAT"
00100          .DA #$98,"INPU"
00110          .DA #$91,"COLO"
00120          .DA #$9D,"LIS"
00130          .DA #$96,"ENTE"
00140          .DA #$9A,"LE"
00150          .DA #$9B,"I"
00160          .DA #$9C,"FO"
00170          .DA #$97,"NEX"
00180          .DA #$91,"GOT"
00190          .DA #$91,"GO T"
00200          .DA #$91,"GOSU"
00210          .DA #$BD,"TRA"
00220          .DA #$90,"BY"
00230          .DA #$90,"CON"
00240          .DA #$9E,"CO"
00250          .DA #$9F,"CLOS"
00260          .DA #$90,"CL"
00270          .DA #$90,"DE"
00280          .DA #$9E,"DI"
00290 BEF_LIS1 .DA #$90,"EN"
00300          .DA #$90,"NE"
00310          .DA #$A0,"OPE"
00320          .DA #$96,"LOA"
00330          .DA #$96,"SAV"
00340          .DA #$A2,"STATU"
00350          .DA #$A3,"NOT"
00360          .DA #$CF,"POIN"
00370          .DA #$A1,"XI"
00380          .DA #$A4,"O"
00390          .DA #$92,"POK"
00400          .DA #$A5,"PRIN"
00410          .DA #$90,"RA"
00420          .DA #$99,"REA"
00430          .DA #$A8,"RESTOR"
00440          .DA #$90,"RETUR"
00450          .DA #$A9,"RU"
00460          .DA #$90,"STO"
00470          .DA #$90,"PO"
00480          .DA #$A5,""
00490          .DA #$98,"GE"
00500          .DA #$AB,"PU"
00510          .DA #$91,"GRAPHIC"
00520          .DA #$92,"PLO"
00530          .DA #$92,"POSITIO"
00540          .DA #$90,"DO"
00550          .DA #$92,"DRAWT"
00560          .DA #$93,"SETCOLO"
00570          .DA #$AC,"LOCAT"
00580          .DA #$94,"SOUN"
00590          .DA #$A6,"LPRIN"
00600          .DA #$90,"CSAV"
00610          .DA #$90,"CLOA"
00620          .HX 9A008000
00630          .DA "ERROR- "
00640 ------------------------------
00650 *** ERWEITERTER BEFEHLSSATZ ***
00660 BEF_XLIS .DA #$92,"DPOK"
00670          .DA #$93,"MOV"
00680          .DA #$93,"-MOV"
00690          .DA #$AA,"*"
00700          .DA #$90,"REPEA"
00710          .DA #$91,"UNTI"
00720          .DA #$91,"WHIL"
00730          .DA #$90,"WEN"
00740          .DA #$90,"ELS"
00750          .DA #$90,"ENDI"
00760          .DA #$CF,"BPU"
00770          .DA #$CF,"BGE"
00780          .DA #$92,"FILLT"
00790          .DA #$90,"D"
00800          .DA #$90,"LOO"
00810          .DA #$A8,"EXI"
00820          .DA #$DA,"DI"
00830          .DA #$96,"LOC"
00840          .DA #$96,"UNLOC"
00850          .DA #$96,"RENAM"
00860          .DA #$96,"DELET"
00870          .DA #$91,"PAUS"
00880          .DA #$96,"TIME$"
00890          .DA #$A7,"PRO"
00900          .DA #$B8,"EXE"
00910          .DA #$90,"ENDPRO"
00920          .DA #$91,"FCOLO"
00930          .DA #$AA,"*"
00940          .DA #$95,"-"
00950          .DA #$93,"RENU"
00960          .DA #$92,"DE"
00970          .DA #$DA,"DUM"
00980          .DA #$AA,"TRAC"
00990          .DA #$DB,"TEX"
01000          .DA #$96,"BLOA"
01010          .DA #$96,"BRU"
01020          .DA #$B8,"GO"
01030          .DA #$A7,""
01040          .DA #$AA,"*"
01050          .DA #$92,"PAIN"
01060          .DA #$9F,"CL"
01070          .DA #$94,"DSOUN"
01080          .DA #$DC,"CIRCL"
01090          .DA #$AB,"%PU"
01100          .DA #$98,"%GE"
01110          .HX 9A00
01120 ------------------------------
01130 ***  FUNKTIONENTABELLE     ***
01140 FUNK_LIS .HX 8280ACA4BABB9B
01150          .DA "GOT"
01160          .DA "GOSU"
01170          .DA "T"
01180          .DA "STE"
01190          .DA "THE"
01200          .DA ""
01210          .DA "<"
01220          .DA "<"
01230          .DA ">"
01240          .DA ""
01250          .DA ""
01260          .DA ""
01270          .DA ""
01280          .DA ""
01290          .DA ""
01300          .DA ""
01310          .DA ""
01320          .DA "NO"
01330          .DA "O"
01340          .DA "AN"
01350          .DA ""
01360          .DA ""
01370          .DA ""
01380          .DA ""
01390          .DA "<"
01400          .DA "<"
01410          .DA ">"
01420          .DA ""
01430          .DA ""
01440          .DA ""
01450          .DA ""
01460          .DA ""
01470          .DA ""
01480          .HX 8080
01490          .DA ""
01500          .DA "STR"
01510          .DA "CHR"
01520          .DA "US"
01530          .DA "AS"
01540          .DA "VA"
01550          .DA "LE"
01560          .DA "AD"
01570          .DA "AT"
01580          .DA "CO"
01590          .DA "PEE"
01600          .DA "SI"
01610          .DA "RN"
01620          .DA "FR"
01630          .DA "EX"
01640          .DA "LO"
01650          .DA "CLO"
01660          .DA "SQ"
01670          .DA "SG"
01680          .DA "AB"
01690          .DA "IN"
01700          .DA "PADDL"
01710          .DA "STIC"
01720          .DA "PTRI"
01730          .DA "STRI"
01740          .DA "DPEE"
01750          .DA ""
01760          .DA ""
01770          .DA "INST"
01780          .DA "INKEY"
01790          .DA "EXO"
01800          .DA "HEX"
01810          .DA "DE"
01820          .DA "DI"
01830          .DA "FRA"
01840          .DA "TIME"
01850          .DA "TIM"
01860          .DA "MO"
01870          .DA "EXE"
01880          .DA "RN"
01890          .DA "RAN"
01900          .DA "TRUN"
01910          .DA "%"
01920          .DA "%"
01930          .DA "%"
01940          .DA "%"
01950          .DA "GO"
01960          .DA "UINST"
01970          .DA "ER"
01980          .DA "ER"
01990 ------------------------------
02000 Y1286    .HX 002B8C2C8B02898C
02010          .HX 028A8B
02020 Y1287    .HX 03250F3502260F36
02030          .HX 0228
02040 Y1288    .HX 03B0028D028102B4
02050 Y1289    .HX 03888C02
02060 Y1290    .HX 03828E
02070 Y1291    .HX 032B0F388C8F2C02
02080 Y1292    .HX 03120F3C8C02
02090 Y1293    .HX 0358BA026BBA0260
02100          .HX 0266026702680269
02110          .HX 026C026D02B1025E
02120          .HX B20264B20265B202
02130          .HX 44B202D1B302480F63
02140 Y1294    .HX 033FD0D32C
02150 Y1295    .HX 03D08C2C
02160 Y1296    .HX 03D0B52C
02170 Y1297    .HX 03B5BBB5
02180 Y1298    .HX 0359025F02B602B7
02190          .HX 0283
02200 Y1299    .HX 03D2B2
02210 Y1300    .HX 0385B9
02220 Y1301    .HX 032B0F378C8F2C02
02230 Y1302    .HX 031D0F2F021E0F30
02240          .HX 021F0F3102200F32
02250          .HX 02210F3302220F34
02260 Y1303    .HX 03C0C690
02270 Y1304    .HX 038C90
02280 Y1305    .HX 038D220F2D8C9002
02290          .HX B7220F2EB590
02300 Y1306    .HX 0382220F2D8C198C
02310          .HX BC90
02320 Y1307    .HX 031A8C02
02330 Y1308    .HX 03C41297
02340 Y1309    .HX 03C412AF90
02350 Y1310    .HX 03BE
02360 Y1311    .HX D88290
02370 Y1312    .HX 0390
02380 Y1313    .HX 0291021CB8
02390 Y1314    .HX 03
02400 Y1315    .HX D9BFD690
02410 Y1316    .HX 03140216
02420 Y1317    .HX 03BE9002
02430 Y1318    .HX C0CB90
02440 Y1319    .HX 031C8C
02450 Y1320    .HX 03820285
02460 Y1321    .HX 03BFD602
02470 Y1322    .HX 0312D502
02480 Y1323    .HX 038C
02490 Y1324    .HX 12BE12C4
02500 Y1325    .HX 12B590
02510 Y1326    .HX 03BE900290
02520 Y1327    .HX 03960290
02530 Y1328    .HX 03BED802
02540 Y1329    .HX 03BED80283D802
02550 Y1330    .HX 03C19102C19202C1
02560          .HX 8C1290
02570 Y1331    .HX 02960290
02580 Y1332    .HX 03B51202
02590 Y1333    .HX 03BE12821297
02600 Y1334    .HX 038C128C
02610 Y1335    .HX 0390028C
02620 Y1336    .HX 128C
02630 Y1337    .HX 12C490
02640 Y1338    .HX 03C8D790
02650 Y1339    .HX 038CC590
02660 Y1340    .HX 0386C3
02670 Y1341    .HX 0312C202
02680 Y1342    .HX 0317C60218C60262
02690          .HX C2026AC2
02700 Y1343    .HX 038CC7
02710 Y1344    .HX 0312C602
02720 Y1345    .HX 03822B0F398C8F2C
02730          .HX 02852B0F3B8C2C
02740 Y1346    .HX 03C8D702
02750 Y1347    .HX 0312C902
02760 Y1348    .HX 038C1BCA90028C90
02770 Y1349    .HX 038102
02780 Y1350    .HX 84AE02CDAD02
02790 Y1351    .HX 03AE02
02800 Y1352    .HX 03AFCC
02810 Y1353    .HX 038C02B5
02820 Y1354    .HX 03CDAD02
02830 Y1355    .HX 03D8CE
02840 Y1356    .HX 03CD02
02850 Y1357    .HX 03120215
02860 Y1358    .HX 0340024102420243
02870          .HX 025C
02880 Y1359    .HX 033D023E025B
02890 Y1360    .HX 038CD4
02900 Y1361    .HX 03120F3CD302
02910 Y1362    .HX 032B0F3A
02920 Y1363    .HX 03BE1292
02930 Y1364    .HX 03
02940 Y1365    .HX 80D0B5120F3CB58F2C
02950 Y1366    .HX 03
02960 Y1367    .HX 878690
02970 Y1368    .HX 0326900225900290
02980 Y1369    .HX 038C1293029303
02990 ------------------------------
03000 L0989    .DA #Y1277-1
03010 L0991    .DA /Y1277-1
03020          .DA Y1278-1
03030          .DA Y1279-1
03040          .DA Y1280-1
03050          .DA Y1281-1
03060          .DA Y1282-1
03070          .DA Y1283-1
03080          .DA Y1284-1
03090          .DA Y1285-1
03100 *
03110          .DA Y1287
03120          .DA Y1288,Y1289
03130          .DA Y1286,Y1290
03140          .DA Y1291,Y1292
03150          .DA Y1316,Y1304
03160          .DA Y1337,Y1336
03170          .DA Y1335,Y1364
03180          .DA Y1325,Y1311
03190          .DA Y1314,Y1315
03200          .DA Y1305,Y1348
03210          .DA Y1306,Y1330
03220          .DA Y1338,Y1326
03230          .DA Y1324,Y1323
03240          .DA Y1310,Y1333
03250          .DA Y1339,Y1317
03260          .DA Y1318,Y1366
03270          .DA Y1312,Y1327
03280          .DA Y1368,Y1303
03290          .DA Y1308,Y1351
03300          .DA Y1352,Y1353
03310          .DA Y1293,Y1294
03320          .DA Y1295,Y1296
03330          .DA Y1297,Y1298
03340          .DA Y1299,Y1300
03350          .DA Y1367,Y1301
03360          .DA Y1365,Y1302
03370          .DA Y1307,Y1313
03380          .DA Y1319,Y1320
03390          .DA Y1328,Y1332
03400          .DA Y1340,Y1341
03410          .DA Y1334,Y1342
03420          .DA Y1343,Y1344
03430          .DA Y1345,Y1346
03440          .DA Y1349,Y1350
03450          .DA Y1354,Y1355
03460          .DA Y1356,Y1363
03470          .DA Y1362,Y1358
03480          .DA Y1359,Y1360
03490          .DA Y1361,Y1321
03500          .DA Y1322,Y1347
03510          .DA Y1357,Y1329
03520          .DA Y1331,Y1309
03530          .DA Y1369
03540 ------------------------------
03550 Y1285  JSR L1008
03560        LDA ZP0B0
03570        CMP #$1C
03580        BCC .1
03590        CMP #$28
03600        BEQ .1
03610        CMP #$2B
03620        BCC .2
03630        CMP #$56
03640        BEQ .2
03650        CMP #$57
03660        BEQ .2
03670        CMP #$5A
03680        BEQ .2
03690        CMP #$5D
03700        BEQ .2
03710        CMP #$61
03720        BEQ .2
03730 .1     SEC
03740        RTS
03750 .2     JMP L1016
03760 ------------------------------
03770 ; ENDE TEIL 11
03780 ------------------------------
